[求助]VB高手进 急~~~~~~~~~

来源：百度知道 编辑：UC知道 时间：2024/05/17 16:52:10
[求助]加上菜单 急~~~~~~~~~~~~~
我自己做了个小软件
但把 Me.BorderStyle = 0 因为BorderStyle = 0 所以Me.ShowInTaskbar = True 想让在任务栏里显示，
这样的话虽然显示了 ，但是右击它没有菜单
所以在这里请教各位高手，应该怎么才能让它显示出菜单呢？

'忘记了，还需要API声明呢
'这段可以放在Module里面去
Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONUP = &H205
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIF_MESSAGE = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public TrayIcon As NOTIFYICONDATA

'创建一个窗体，上面有一个菜单，名字叫“操作”
'以下代码可以把窗体隐含起来，并且放在右下角，鼠标点击能出现“操作”菜单

Private Sub Form_Load()
Me.Height = 1
Me.Width = 1
Me.Top = Screen.Height + 100
Me.